home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / fixptlib / draw_record_pwf.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  936 b   |  34 lines
  1. /*
  2. ### draw and record an orbit in periodic, full, window coords ###
  3. =========================================================
  4. Input:    record_on: 0: draw only, 1: draw and record
  5.     color: 
  6.     s_type:
  7.     s_size:
  8.     p_type:
  9.     x[n]: orbit in euclidean or window coords
  10. ----------------------------------------------------------
  11. NOTE: recording done on phase or parameter space data
  12. ----------------------------------------------------------
  13. */
  14.  
  15. void draw_record_pwf(x,color,s_type,s_size,p_type,record_on)
  16. int color,s_type,s_size,p_type,record_on;
  17. double x[];
  18. {
  19.     int i,color_index;
  20.     extern int var_dim,polar_coord,enable_period;
  21.     extern double *t_v,*t_vf;
  22.  
  23.     if(enable_period)
  24.         make_periodic(t_v,x,var_dim);
  25.     else
  26.         for(i=0;i<var_dim;i++)t_v[i]=x[i];
  27.     to_full_variables(t_vf,t_v,polar_coord);
  28.     all_pen_down(1,t_vf,color,s_type,s_size,p_type);
  29.     if(record_on) {
  30.         encode_color_symbol(&color_index,color,s_type);
  31.         record_data(t_vf,color_index);
  32.     }
  33. }
  34.